home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / system / pc_dcl.zip / LEXICAL.DCL < prev    next >
Text File  |  1992-01-09  |  4KB  |  121 lines
  1. on error then continue
  2. write sys$output f$directory()
  3.  
  4. edit_test = "   This is a   TEST   !comment  "
  5. write sys$output "<"+f$edit(edit_test,"COLLAPSE")+">"
  6. write sys$output "<"+f$edit(edit_test,"COMPRESS")+">"
  7. write sys$output "<"+f$edit(edit_test,"LOWERCASE")+">"
  8. write sys$output "<"+f$edit(edit_test,"TRIM")+">"
  9. write sys$output "<"+f$edit(edit_test,"UNCOMMENT")+">"
  10. write sys$output "<"+f$edit(edit_test,"UPCASE")+">"
  11.  
  12. list = "ELEM1/ELEM2/ELEM3/ELEM4/ELEM5"
  13. write sys$output  f$element(2,"/",list)
  14. write sys$output  f$element(2,"/","ELEM1/ELEM2/ELEM3/ELEM4/ELEM5")
  15. write sys$output  f$element(99,"/",list)
  16.  
  17. write sys$output f$extract(3,3,"ABCDEFGHIJ")
  18. write sys$output f$extract(99,3,"ABCDEFGHIJ")
  19. write sys$output f$extract(0,99,"ABCDEFGHIJ")
  20.  
  21. ten = 10
  22. write sys$output f$integer(ten)
  23. write sys$output f$integer(list)
  24. write sys$output f$integer(123)
  25. write sys$output f$integer("123")
  26.  
  27. write sys$output f$length("1234567890")
  28. write sys$output f$length(list)
  29.                   
  30. write sys$output f$locate("aaa","bfdgdaaahfhfaaa")
  31. write sys$output f$locate("xyz","bfdgdaaahfhfaaa")
  32. write sys$output f$locate("ELEM3",list)
  33.  
  34. write sys$output f$mode()
  35.  
  36. write sys$output f$string(ten * 10)
  37. write sys$output f$string(list)
  38.  
  39. write sys$output f$trnlnm("SYS$LOGIN")
  40.  
  41. write sys$output f$type(list)
  42. write sys$output f$type(ten)
  43.  
  44. write sys$output f$verify(0,1)
  45. write sys$output f$verify(1,1)
  46. write sys$output f$verify()
  47.  
  48. write sys$output f$cvtime(,,)
  49. write sys$output f$cvtime(,,"DATE")
  50. write sys$output f$cvtime(,,"DATETIME")
  51. write sys$output f$cvtime(,,"DAY")
  52. write sys$output f$cvtime(,,"HOUR")
  53. write sys$output f$cvtime(,,"HUNDRETH")
  54. write sys$output f$cvtime(,,"MINUTE")
  55. write sys$output f$cvtime(,,"MONTH")
  56. write sys$output f$cvtime(,,"SECOND")
  57. write sys$output f$cvtime(,,"TIME")
  58. write sys$output f$cvtime(,,"WEEKDAY")
  59. write sys$output f$cvtime(,,"YEAR")
  60.  
  61. write sys$output f$cvtime(,"ABSOLUTE","DATE")
  62. write sys$output f$cvtime(,"ABSOLUTE","DATETIME")
  63. write sys$output f$cvtime(,"ABSOLUTE","DAY")
  64. write sys$output f$cvtime(,"ABSOLUTE","HOUR")
  65. write sys$output f$cvtime(,"ABSOLUTE","HUNDRETH")
  66. write sys$output f$cvtime(,"ABSOLUTE","MINUTE")
  67. write sys$output f$cvtime(,"ABSOLUTE","MONTH")
  68. write sys$output f$cvtime(,"ABSOLUTE","SECOND")
  69. write sys$output f$cvtime(,"ABSOLUTE","TIME")
  70. write sys$output f$cvtime("YESTERDAY","ABSOLUTE","WEEKDAY")
  71. write sys$output f$cvtime("TODAY","ABSOLUTE","WEEKDAY")
  72. write sys$output f$cvtime("TOMORROW","ABSOLUTE","WEEKDAY")
  73. write sys$output f$cvtime(,"ABSOLUTE","YEAR")
  74. write sys$output f$cvtime("+7-","ABSOLUTE","WEEKDAY")
  75.  
  76. write sys$output f$environment("CONTROL")
  77. write sys$output f$environment("DEFAULT")
  78. write sys$output f$environment("DEPTH")
  79. write sys$output f$environment("INTERACTIVE")
  80. write sys$output f$environment("MAX_DEPTH")
  81. write sys$output f$environment("PROCEDURE")
  82. write sys$output f$environment("PROMPT")
  83. write sys$output f$environment("SYMBOL_SCOPE")
  84. write sys$output f$environment("VERB_SCOPE")
  85. write sys$output f$environment("VERIFY_IMAGE")
  86. write sys$output f$environment("VERIFY_PROCEDURE")
  87.  
  88. write sys$output f$file_attributes("LEXICAL.DCL","ATT")
  89. write sys$output f$file_attributes("LEXICAL.DCL","DAT")
  90. write sys$output f$file_attributes("LEXICAL.DCL","DEV")
  91. write sys$output f$file_attributes("LEXICAL.DCL","DIR")
  92. write sys$output f$file_attributes("LEXICAL.DCL","EXT")
  93. write sys$output f$file_attributes("LEXICAL.DCL","NAM")
  94. write sys$output f$file_attributes("LEXICAL.DCL","SIZ")
  95.  
  96. write sys$output f$getdvi("SYS$DISK","CLU")
  97. write sys$output f$getdvi("SYS$DISK","FRE")
  98. write sys$output f$getdvi("SYS$DISK","SIZ")
  99.  
  100. write sys$output f$getsyi("CPU")
  101. write sys$output f$getsyi("FPU")
  102. write sys$output f$getsyi("TOTMEM")
  103. write sys$output f$getsyi("TOTXMS")
  104. write sys$output f$getsyi("TOTEMS")
  105. write sys$output f$getsyi("FREMEM")
  106. write sys$output f$getsyi("FREXMS")
  107. write sys$output f$getsyi("FREEMS")
  108. write sys$output f$getsyi("VIDMOD")
  109.  
  110. error = 0
  111. loop:
  112.         write sys$output error + "  " + f$message(error)
  113.         error = error + 1
  114.         if error .LT. 36 then goto loop
  115.  
  116. loop1:
  117.         fn = f$search("*.dcl")
  118.         write sys$output fn
  119.         if fn .NES. "" then goto loop1
  120.         
  121.